home *** CD-ROM | disk | FTP | other *** search
/ Cracking 1 / Cracking I..iso / Tools / Ostatní / aPLib v0.26b / examples / vpascal / testapde.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-12-15  |  674 b   |  43 lines
  1. program test__aplib_depack;
  2.  
  3. (*$IFDEF DYNAMIC_VERSION*)
  4. uses aplibud;
  5. (*$ELSE*)
  6. uses aplibu;
  7. (*$ENDIF*)
  8.  
  9. var
  10.   d1,d2:file;
  11.   p1,p2:pointer;
  12.   l1,l2o,l2:longint;
  13.  
  14. begin
  15.   if paramcount<>2 then
  16.     begin
  17.       writeln('TESTAPDE.EXE <aplib> <normal>');
  18.       halt(1);
  19.     end;
  20.  
  21.   assign(d1,paramstr(1));
  22.   reset(d1,1);
  23.   l1:=filesize(d1);
  24.   getmem(p1,l1);
  25.   blockread(d1,p1^,l1);
  26.   close(d1);
  27.  
  28.   l2o:=20*l1; (* ??? *)
  29.   getmem(p2,l2o);
  30.  
  31.   l2:=_ap_depack_asm_fast(p1^,p2^);
  32.   (* l2:=ap_depack_asm(p1^,p2^); *)
  33.  
  34.   assign(d2,paramstr(2));
  35.   rewrite(d2,1);
  36.   blockwrite(d2,p2^,l2);
  37.   close(d2);
  38.  
  39.   freemem(p1,l1);
  40.   freemem(p2,l2o);
  41.  
  42. end.
  43.